-- card: 6986 from stack: in
-- bmap block id: 7694
-- flags: 0000
-- background id: 2729
-- name: 
----- HyperTalk script -----
on closecard
  visual dissolve slowly
end closecard



-- part 2 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=287 top=227 right=342 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tom1
----- HyperTalk script -----

on openfield
  if the optionKey is down then
    set lockscreen to true
    choose button tool
    get loc of target
    subtract 72 from item 2 of it
    subtract 72 from item 1 of it
    click at it
    domenu "Clear Button"
    choose field tool
    get loc of target
    click at it
    domenu "Clear Field"
    choose browse tool
    set lockscreen to false
  end if
  wait 10 ticks
  if the mouse is down then
    repeat until the mouse is up
      set the loc of the target to the mouseLoc
      get the loc of target
      subtract 72 from item 2 of it
      subtract 72 from item 1 of it
      set the loc of button Tom1 to it
    end repeat
  end if
end openfield


-- part 3 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=287 top=227 right=233 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tom1
----- HyperTalk script -----
on mouseUp
  Set the visible of card field id 2 to not the visible of card field id 2
end mouseUp


-- part contents for background part 1
----- text -----


Peter Martori
 605 W. Montebello
Phoenix, AZ  85013

P. Martori on GEnie
72437,3146 on Compuserve


Use any of my hybrids as you wish.  Please acknowledge the original creators if you pass then on.

-- part contents for card part 2
----- text -----

the 24pt font used in this stack is 
"Broadway".  It came with my hard drive 
w/o documentation.